﻿Public Class FrmClienteCadastro
    Inherits Trading.FrmBase

    ' Essa treta toda para poder fazer a pesquisa e o cadastro em locais diferentes (optado por UserControl)
    ' pois com tabcontrol não é possivel ocultar as abas e com panel um em cima do outro fica muito tosko
    ' Não seI qual é a do delegate se da de usar Handles na boa

    Private Sub Visualizar(ByVal cliente As Model.PessoaPesquisa) Handles UcClientePesquisa1.Visualizar
        ' Chama o UC de cadastro para alteração passando o id

        UcClienteCadastro1.Visualiza(cliente)

        StatusFrm(FrmModo.Edit)
    End Sub


    Private Sub Incluir() Handles UcClientePesquisa1.Incluir
        ' Algo assim
        UcClienteCadastro1.Novo()

        StatusFrm(FrmModo.Insert)
    End Sub

    Private Sub Salvo() Handles UcClienteCadastro1.Salvo
        StatusFrm(FrmModo.Viewer)
    End Sub

    Private Sub Cancelado() Handles UcClienteCadastro1.Cancelado
        StatusFrm(FrmModo.Viewer)
    End Sub

    Private Sub StatusFrm(ByVal Modo As FrmModo)
        If Modo = FrmModo.Insert Or Modo = FrmModo.Edit Then
            UcClientePesquisa1.Visible = False
            UcClienteCadastro1.Visible = True
        End If
        If Modo = FrmModo.Viewer Then
            UcClientePesquisa1.Visible = True
            UcClienteCadastro1.Visible = False
        End If
    End Sub

    Private Sub Sair() Handles UcClientePesquisa1.Sair
        Me.Close()
    End Sub
End Class